Abasic is also event driven !

If you define special reserved labels, the Abasic kernel will jump
to this label upon event !

The following events are supported :

PenDown		define label 1
PenUp		define label 2
PenMove		define label 3
Paint		define label 4
KeyDown		define label 5


Check Posx and PosY in these events.

The code MUST end with a RETURN instruction !


try this code:
------------------   cut here   --------------------
10 rem start
for i=0 to 10
locate 3,5
print "Looping...",i
next
goto 10

1 rem pen down
locate 3,6
print "Pen down at : ";posx;",";posy
return

2 rem pen up
locate 3,7
clreol
return

3 rem pen moves
locate 3,7
p. "Pen is moving : ";posx;",";posy
return

4 rem Keydown
locate 3,8
P. "Key is down : ";posx
return
------------------   cut here   --------------------
